home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / DTA.DEF < prev    next >
Text File  |  2000-09-26  |  348b  |  21 lines
  1. DEFINITION MODULE DTA;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. (* Get / Set DOS Disk Transfer Address *)
  7.  
  8. FROM SYSTEM IMPORT ADDRESS;
  9.  
  10.  
  11. PROCEDURE GetDTA( VAR adrs :ADDRESS );
  12. (*
  13.     returns the current DTA at adrs.
  14. *)
  15.  
  16. PROCEDURE SetDTA( adrs :ADDRESS );
  17. (*
  18.     sets DTA to adrs
  19. *)
  20.  
  21. END DTA.